5 REM COPYRIGHT 1993 COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
10 PRINT"[147]"
20 DIMX(40):GOSUB10270 
30 POKE 53280,15:POKE 53281,9
40 A$="[158][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
50 B$="[158][166]                              [166]"
60 PRINT ""A$:FOR B=1 TO 18
70 PRINT B$:NEXT B
80 PRINT "[145]"A$
90 PRINT TAB(12)"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][158][161][172][162][146][190]            "
100 PRINT TAB(12)"[158][161][188][146][187] [188][162] [146][190][172][172][187][146][187][172][172][187][146][187]"
110 PRINT TAB(12)"[158][161][146][161]   [190][146][190] [161][172][162][146][190][161][172][162][146][190]"
120 PRINT TAB(12)"[158][190]  [188][190]  [188][146][162]  [146][162][162]  [146][162]":PRINT
130 PRINT TAB(8)"[158][161][172][188][146]          [172][187]         "
140 PRINT TAB(8)"[158][161][146][161][161][146][161][172][172][187][146][187][172][172][162][146][190] [162][187] [172][172][187][146][161][161][172][187][146][187]"
150 PRINT TAB(8)"[158][161][146][161][190][146][190][161][172][162][146][190] [162][187][146][187] [161][146][161] [188][188][190][146][161][161][146][161][161][146][161]"
160 PRINT TAB(8)"[158][190] [188][146][162][162]  [146][162][190]  [146][162][162]  [146][162][162][162][190][146][191][190][188][190][188][146]"
170 PRINT                          
180 PRINTTAB(16)"(C) 1993":PRINTTAB(9)" COMPUTE PUBLICATIONS
190 [153] [163]12)"SYSBY  FRANK KIRSCH":[153]
200 [133]"SYSINSTRUCTIONS Y/N";V$
210 [139] V$[178]"N"[137]610 
220 [153]"LOAD"
230 [151] 53280,1:[151] 53281,1
240 [153] [163]10)"ELECTRONIC FORMULAE"
250 [153] [163]10)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSR USRUSRUSRUSRUSRUSRUSRUSR"
260 [153][163]8)"VERIFY"S1$;S3$;S2$ :[153]
270 [143] WRITTEN BY FRANK C. KIRSCH  MAY 10,1987. REVISED APRIL 18,1991
280 [153]"POKE  THE PROGRAM CONSISTS OF EQUATION SETS"
290 [153]"ASSOCIATED WITH ELECTRONIC PROBLEMS."
300 [153]"TO SELECT AN EQUATION SET, ENTER THE    NUMBER INDICATED ON THE MENU.
310 PRINT"  FOR THOSE EQUATION SETS WHICH REQUIRE"
320 PRINT"A ZERO ENTRY FOR THE UNKNOWN VALUE, "
330 PRINT"ZERO IS USED TO RESET THAT VARIABLE AND"
340 PRINT"INFORMS THE COMPUTER WHICH EQUATION IN"
350 PRINT"THE SET TO SELECT. ENTER A ZERO       "
360 PRINT"BY PRESSING THE RETURN KEY AT THE INPUT PROMPT FOR THE UNKNOWN VALUE."
370 PRINT"[151]  OTHER EQUATIONS WILL REQUIRE ALL OF"
380 PRINT"THE INPUTS INDICATED IN THE INSTRUCTIONSFOR EACH SET."
390 PRINT"  THE QUANTITIES WHICH MAY BE SOLVED"
400 PRINT"ARE SHOWN IN PARENTHESES ON THE MENU."
410 PRINT:PRINTTAB(12)"(PRESS ANY KEY)"
420 GET H$:IF H$="" THEN420 
430 PRINT"[147]":PRINT:PRINT:PRINT
440 PRINT"[151]  WHEN ENTERING DATA, IT IS IMPORTANT TO"
450 PRINT"[145]ENTER VALUES CORRECTLY. FOR EXAMPLE, IF"
460 PRINT"THE COMPUTER REQUESTS CAPACITANCE IN"
470 PRINT"FARADS AND THE VALUE TO BE ENTERED IS"
480 PRINT".05MFD, THIS SHOULD BE ENTERED AS    "
490 PRINT".00000005 FARAD OR .05E-6 IF USING      EXPONENTIAL ENTRY."
500 :PRINT
510 PRINT"  FOR CONVENIENCE, THE COMPUTER READOUT"
520 PRINT"WILL OFTEN BE IN MULTIPLE VALUES SUCH "
530 PRINT"AS HERTZ, KILOHERTZ, AND MEGAHERTZ .":PRINT
540 PRINT"  AFTER COMPLETING AN EQUATION, THE"
550 PRINT"USER HAS THE OPTION OF REPEATING THE"
560 PRINT"SET, RETURNING TO THE MENU, OR SKIPPING"
570 PRINT"DIRECTLY TO ANOTHER EQUATION SET AND"
580 PRINT"BYPASSING THE MENU.":PRINT:PRINT
590 PRINT:PRINT TAB(12)"(PRESS ANY KEY)"
600 GET H$:IF H$="" THEN600 
610 PRINT"[147]":   POKE 53280,1:POKE 53281,1
620 PRINT TAB(8)"------ENTER NUMBER------":PRINT
630 PRINT"CAPACITOR--CHARGE/ENERGY---(Q,C,E,W)=1"
640 PRINT"CAPACITOR--PLATE---------(K,C,S,N,D)=2"
650 PRINT"CAPACITOR--REACTANCE--------(XC,F,C)=3"
660 PRINT"CAPACITORS--IN SERIES-----(C1,C2.CT)=4"
670 PRINT"CAPACITORS-PARALLEL-------------(CT)=5"
680 PRINT"CAPACITOR--TIME CONSTANT-----(C,R,T)=6":PRINT
690 PRINT"[152]COIL-RF AIR SINGLE LAYER----(#1 L,N)=7"
700 PRINT"COIL-RF/SPECIFY WIRE GA.-(#2 N,LGTH)=8":PRINT
710 PRINT"DB,WATTS,VOLTS,OR AMPS----(DB,W,E,I)=9":PRINT
720 PRINT"[152]FREQUENCY--RESONANT---------(FR,L,C)=10"
730 PRINT"FREQUENCY, WAVELENGTH, PERIOD"
740 PRINT" OF SINEWAVE-----------------(F,W,T)=11":PRINT
750 PRINT"IMPEDANCE--PARALLEL-----(#1 XC,XL,R)=12"
760 PRINT"IMPEDANCE--PARALLEL-----(#2 R,Z1,ZT)=13"
770 PRINT"IMPEDANCE--SERIES-------(#1 XC,XL,R)=14"
780 PRINT"IMPEDANCE--SERIES-------(#2 R,Z1,ZT)=15":PRINT
790 PRINT"RETURN FOR PAGE #2.             PAGE #1"
800 INPUT"EQUATION SET NO.";EQ
810 PRINT:PRINT:PRINT"[151]"
820 IF EQ>27 THEN800
830 IF EQ>0 THEN1040
840 PRINT TAB(8)"------ENTER NUMBER------":PRINT
850 PRINT"IMPEDANCE--SERIES/PARALLEL"
860 PRINT" USING----------------(RL,XL//RC,XC)=16":PRINT
870 PRINT"[152]INDUCTORS--PARALLEL-------(L1,L2,LT)=17"
880 PRINT"INDUCTORS--SERIES---------------(LT)=18"
890 PRINT"INDUCTOR--REACTANCE---------(XL,F,L)=19"
900 PRINT"INDUCTOR--TIME CONSTANT------(L,R,T)=20":PRINT
910 PRINT"OHMS LAW--(AC)---------------(I,E,Z)=21"
920 PRINT"OHMS LAW--(DC)---------------(I,E,R)=22":PRINT
930 PRINT"[152]PEAK,PEAK/PEAK,AVG.& RMS CONVERSIONS=23":PRINT
940 PRINT"RESISTANCE--PARALLEL------(R1,R2,RT)=24"
950 PRINT"RESISTANCE--SERIES--------------(RT)=25"
960 PRINT"RESISTOR COLOR CODE-----(OHMS/COLOR)=26":PRINT
970 PRINT"[152]SIMULTANEOUS EQUATIONS--------------=27"
980 PRINT:PRINT:PRINT
990 PRINT"RETURN FOR PAGE #1.             PAGE #2"
1000 INPUT"EQUATION SET NO.";EQ
1010 PRINT"[151]"
1020 IF EQ<1 THEN620
1030 IF EQ>27 THEN1000 
1040 ON EQ GOTO5050 ,3020,2270,2860,7360,1440,5610,6220,8480,1750,5200,3980,6570
1050 Z=EQ-13
1060 ON Z GOTO3510,6880,4530,2700,8330,2020,1600,5450,1330,1090,2550,7210,7510
1070 Z1=EQ-26
1080 ON Z1 GOTO9090 
1090 PRINT"[147]":GOSUB10270 
1100 PRINT"PEAK,PEAK/PEAK,AVG. AND RMS VALUES FOR"
1110 PRINT"[183][183][183][183][160][183][183][183][183][183][183][183][183][183] [183][183][183][183] [183][183][183] [183][183][183] [183][183][183][183][183][183] [183][183][183]"
1120 PRINT TAB(4)"SINE WAVE VOLTAGE OR CURRENTS."
1130 PRINT TAB(4)"[183][183][183][183][160][183][183][183][183][160][183][183][183][183][183][183][183][160][183][183][160][183][183][183][183][183][183][183][183][183]"
1140 PRINT"ENTER KNOWN I OR E VALUE AT THE PROPER  INPUT,ENTER A ZERO FOR ALL OTHERS."
1150 PRINT
1160 INPUT "[151]PEAK(I OR E)       =";B
1170 INPUT "PEAK/PEAK(I OR E)  =";PP
1180 INPUT "AVERAGE(I OR E)    =";A
1190 INPUT "RMS(I OR E)        =";R:PRINT
1200 IF B>0 GOTO1260 
1210 IF PP>0 THEN B=PP/2:GOTO1260 
1220 IF A>0 THEN B=A/.637:GOTO1260 
1230 IF R>0 THEN B=R/.707:GOTO1260 
1240 IF B+PP+A+R=0 THEN GOSUB9980 
1250 GOTO1090 
1260 P=B:PP=2*B:A=.637*B:R=.707*B
1270 PRINT "[151]PEAK(I OR E)        =";B:PRINT
1280 PRINT "PEAK TO PEAK(I OR E)=";PP:PRINT:PRINT "AVG.(I OR E)        =";A:PRINT
1290 PRINT "RMS(I OR E)         =";R:PRINT:PRINT
1300 GOSUB9840
1310 IF C$="R" THEN1090 
1320 GOTO6150 
1330 PRINT"[147]":GOSUB10270 
1340 PRINT TAB(14)"OHMS LAW DC"
1350 PRINT TAB(14)"[183][183][183][183] [183][183][183] [183][183]":PRINT
1360 PRINT"INPUT A ZERO FOR EITHER I,E, OR R.":PRINT"[151]"
1370 INPUT "I(AMPS)";A:INPUT "E(VOLTS)";B:INPUT "R(OHMS)";C
1380 GOSUB9870 :IF ER=1 THEN GOTO1330 
1390 W=A*B:PRINT:PRINT
1400 PRINT"AMPS =";A:PRINT:PRINT"VOLTS =";B:PRINT
1410 PRINT"OHMS=";C:PRINT:PRINT"WATTS =";W:PRINT:GOSUB9840
1420 IF C$="R" THEN1330 
1430 GOTO6150 
1440 PRINT"[147]":GOSUB10270 
1450 PRINT TAB(10)"RC TIME CONSTANTS"
1460 PRINT TAB(10)"[183][183] [183][183][183][183] [183][183][183][183][183][183][183][183][183]":PRINT
1470 PRINT"INPUT A ZERO FOR EITHER T, C, OR R.":PRINT:PRINT"[151]"
1480 INPUT "T(SECONDS)";B:INPUT "C(FARADS)";C:INPUT "R(OHMS)";A
1490 Z1$="CHARGE":Z2$="DISCHARGE"
1500 GOSUB9870
1510 PRINT"[147]"
1520 PRINT"[149]SECOND=";B,"FARAD=";C:PRINT"OHMS=";A
1530 PRINT"[149]MILSEC=";B*10^3,"MFD=";C*10^6:PRINT"KILOHMS=";A/10^3
1540 PRINT"[149]MIC.SEC=";B*10^6,"PF.=";C*10^12:PRINT"MEGOHM=";A/10^6:PRINT
1550 A=B
1560 GOSUB10000
1570 GOSUB9840
1580 IF C$="R" THEN1440 
1590 GOTO6150 
1600 PRINT"[147]":GOSUB10270 
1610 PRINT TAB(10)"RL TIME CONSTANTS"
1620 PRINT TAB(10)"[183][183] [183][183][183][183] [183][183][183][183][183][183][183][183][183]":PRINT
1630 PRINT"INPUT A ZERO FOR EITHER T, L, OR R.":PRINT"[151]"
1640 INPUT "T(SECONDS)";A:INPUT "L(HENRYS) ";B:INPUT "R(OHMS)   ";C
1650 Z1$="BUILDUP":Z2$="DECAY"
1660 GOSUB9870
1670 PRINT"[147]"
1680 PRINT"[149]SECOND=";A,"HENRY=";B:PRINT"OHMS=";C
1690 PRINT"[149]MILSEC=";A*10^3,"MIL H=";B*10^3:PRINT"KILOHMS=";C/10^3
1700 PRINT"[149]MIC.SEC=";A*10^6,"MIC H=";B*10^6:PRINT"MEGOHM=";C/10^6:PRINT
1710 GOSUB10000
1720 GOSUB9840
1730 IF C$="R" THEN1600 
1740 GOTO6150 
1750 PRINT"[147]":GOSUB10270 
1760 PRINT TAB(10)"RESONANT FREQUENCY"
1770 PRINT TAB(10)"[183][183][183][183][183][183][183][183][160][183][183][183][183][183][183][183][183][183]":PRINT
1780 PRINT"INPUT A ZERO FOR EITHER FR, L, OR C":PRINT
1790 INPUT"[151]FR(HERTZ)";F:INPUT "L(HENRIES)";L:INPUT "C(FARADS)";C
1800 IF F+L=0 THEN1850 
1810 IF F+C=0 THEN1850 
1820 IF L+C=0 THEN1850 
1830 IF F*L*C>0 THEN1850 
1840 GOTO1870 
1850 GOSUB9980 
1860 GOTO1750 
1870 IF L=0 THEN1900 
1880 IF C=0 THEN1910 
1890 F=1/(2*(null)*(SQR(L*C))):GOTO1920
1900 L=1/(4*((null)^2)*(F^2)*C):GOTO1920
1910 C=1/(4*((null)^2)*(F^2)*L)
1920 PRINT
1930 PRINT"FR(HERTZ)=";F:PRINT"FR(KH)   =";F/10^3:PRINT"FR(MH)   =";F/10^6:PRINT
1940 PRINT"L(HENRIES)=";L
1950 PRINT"L(MH)    =";L*10^3:PRINT"L(MIC. H)=";L*10^6:PRINT
1960 PRINT"C(FARAD) =";C
1970 PRINT"C(MFD)   =";C*10^6:PRINT"C(PF)    =";C*10^12
1980 PRINT
1990 GOSUB9840
2000 IF C$="R" THEN1750 
2010 GOTO6150 
2020 PRINT"[147]":GOSUB10270 
2030 PRINT TAB(10)"INDUCTIVE REACTANCE"
2040 PRINT TAB(10)"[183][183][183][183][183][183][183][183][183][160][183][183][183][183][183][183][183][183][183]":PRINT
2050 PRINT"INPUT A ZERO FOR EITHER XL, F, OR L.":PRINT
2060 INPUT "[151]XL(OHMS)";X:INPUT "F(HERTZ)";F:INPUT "L(HENRIES)";L
2070 IF X+F=0 THEN2120 
2080 IF X+L=0 THEN2120 
2090 IF F+L=0 THEN2120 
2100 IF X*F*L>0 THEN2120 
2110 GOTO2140 
2120 GOSUB9980 
2130 GOTO2020 
2140 IF F=0 THEN2170 
2150 IF L=0 THEN2180 
2160 X=2*(null)*F*L:GOTO2190
2170 F=X/(2*(null)*L):GOTO2190
2180 L=X/(2*(null)*F)
2190 PRINT
2200 PRINT"XL(OHMS)    =";X:PRINT"XL(KILOHMS) =";X/10^3
2210 PRINT"XL(MEGOHMS) =";X/10^6:PRINT
2220 PRINT"F(HERTZ)=";F:PRINT"F(KHZ)  =";F/10^3:PRINT"F(MHZ)  =";F/10^6:PRINT
2230 PRINT"L(HENRIES)=";L:PRINT"L(MIL. H)=";L*10^3:PRINT"L(MIC. H)=";L*10^6:PRINT
2240 GOSUB9840
2250 IF C$="R" THEN2020 
2260 GOTO6150 
2270 PRINT"[147]":GOSUB10270 
2280 PRINT TAB(10)"CAPACITIVE REACTANCE"
2290 PRINT TAB(10)"[183][183][183][183][183][183][183][183][183][183][160][183][183][183][183][183][183][183][183][183]":PRINT
2300 PRINT"INPUT A ZERO FOR EITHER XC, F, OR C":PRINT"[151]"
2310 INPUT "XC(CAPACITIVE REACTANCE)OHMS ";X:INPUT "F(FREQUENCY)HERTZ ";F
2320 INPUT "C(CAPACITY)FARADS ";C
2330 IF X+F=0 THEN2380
2340 IF X+C=0 THEN2380
2350 IF F+C=0 THEN2380
2360 IFX*F*C>0 THEN2380 
2370 GOTO2400 
2380 GOSUB9980 
2390 GOTO2270 
2400 IF F=0 THEN2430 
2410 IF C=0 THEN2440 
2420 X=1/(2*(null)*F*C):GOTO2450
2430 F=1/(2*(null)*X*C):GOTO2450
2440 C=1/(2*(null)*X*F)
2450 PRINT
2460 PRINT"XC(CAP. REACT.)OHMS   =";X:PRINT"XC(CAP. REACT.)KILOHMS=";X/10^3
2470 PRINT"XC(CAP. REACT.)MEGOHM =";X/10^6
2480 PRINT:PRINT"F(FREQ)HERTZ =";F:PRINT"F(FREQ)KHZ   =";F/10^3
2490 PRINT"F(FREQ)MHZ   =";F/10^6:PRINT
2500 PRINT"C(CAPACITY)FARAD=";C
2510 PRINT"C(CAPACITY)MFD  =";C*10^6:PRINT"C(CAPACITY)PF   =";C*10^12:PRINT
2520 GOSUB9840
2530 IF C$="R" THEN2270 
2540 GOTO6150 
2550 PRINT"[147]":GOSUB10270 
2560 PRINT TAB(10)"PARALLEL RESISTANCE"
2570 PRINT TAB(10)"[183][183][183][183][183][183][183][183] [183][183][183][183][183][183][183][183][183][183]"
2580 PRINT"INPUT A ZERO FOR EITHER R1, R2, OR RT.":PRINT
2590 PRINT"IF A VALUE FOR RT IS ENTERED, IT MUST BELESS THAN R1 OR R2. IF MORE
2600 [153]"THAN TWO RESISTORS ARE USED, SUBSTITUTE"
2605 [153]"THE RT VALUE FOR R1 AND R2 AND REPEAT.
2610 INPUT "[151]R1(OHMS)";A:INPUT "R2(OHMS)";B:INPUT "RT(OHMS)";C
2620 IF C=>A+B THEN PRINT"RT VALUE TOO HIGH,PLEASE REPEAT":GOSUB10270 :GOTO2610 
2630 GOSUB10160
2640 PRINT
2650 PRINT"R1(OHMS)=";A:PRINT:PRINT"R2(OHMS)=";B:PRINT
2660 PRINT "RT(OHMS)=";C:PRINT
2670 GOSUB9840
2680 IF C$="R" THEN2550 
2690 GOTO6150 
2700 PRINT"[147]":GOSUB10270 
2710 PRINT TAB(10)"PARALLEL INDUCTANCE"
2720 PRINT TAB(10)"[183][183][183][183][183][183][183][183] [183][183][183][183][183][183][183][183][183][183]"
2730 PRINT"INPUT A ZERO FOR EITHER L1, L2, OR LT.":PRINT
2740 PRINT"IF A VALUE FOR LT IS USED, IT MUST BE   LESS THAN L1 OR L2. IF MORE";
2745 PRINT" THAN TWO    INDUCTORS ARE USED,";
2750 PRINT" SUBSTITUTE THE LT   VALUE FOR L1 OR L2 AND REPEAT."
2760 INPUT "[151]L1(HENRIES)";A:INPUT "L2(HENRIES)";B:INPUT "LT(HENRIES)";C
2770 IF C=>A+B THEN PRINT"LT VALUE TOO HIGH,PLEASE REPEAT":GOSUB10270 :GOTO2760 
2780 GOSUB10160
2790 PRINT
2800 PRINT"L1(MIL.H)=";A*10^3:PRINT"L1(MIC.H)=";A*10^6:PRINT
2810 PRINT"L2(MIL.H)=";B*10^3:PRINT"L2(MIC.H)=";B*10^6:PRINT
2820 PRINT"LT(MIL.H)=";C*10^3:PRINT"LT(MIC.H)=";C*10^6:PRINT
2830 GOSUB9840
2840 IF C$="R" THEN2700
2850 GOTO6150 
2860 PRINT"[147]":GOSUB10270 
2870 PRINT TAB(12)"SERIES CAPACITORS"
2880 PRINT TAB(12)"[183][183][183][183][183][183] [183][183][183][183][183][183][183][183][183][183]"
2890 PRINT"INPUT A ZERO FOR EITHER C1 ,C2, OR CT.":PRINT
2900 PRINT"IF A VALUE FOR CT IS ENTERED,IT MUST BE LESS THAN C1 OR C2. IF MORE T
2910 [153]"CAPACITORS ARE USED,SUBSTITUTE THE CT   VALUE FOR C1 OR C2 AND REPEAT
2920 INPUT "[151]C1(FARADS)";A:INPUT "C2(FARADS)";B:INPUT "CT(FARADS)";C
2930 GOSUB10160
2940 IF ER=1 THEN GOTO2860 
2950 PRINT
2960 PRINT"C1(MFD)=";A*10^6:PRINT"C1(PF) =";A*10^12:PRINT
2970 PRINT"C2(MFD)=";B*10^6:PRINT"C2(PF) =";B*10^12:PRINT
2980 PRINT"CT(MFD)=";C*10^6:PRINT"CT(PF) =";C*10^12:PRINT
2990 GOSUB9840
3000 IF C$="R" THEN2860 
3010 GOTO6150 
3020 PRINT"[147]":GOSUB10270 
3030 PRINTTAB(12)"PLATE CAPACITORS"
3040 PRINTTAB(12)"[183][183][183][183][183] [183][183][183][183][183][183][183][183][183][183]"
3050 PRINT TAB(10) "DIELECTRIC CONSTANTS"
3060 PRINT TAB(6) "DIELECTRIC    APPROX. K VALUE"
3070 PRINT TAB(6) "----------    ---------------"
3080 PRINT TAB(6) "AIR AT ATMOS. PRESSURE---- 1.0"
3090 PRINT TAB(6) "CELLULOSE ACETATE--------- 6.0"
3100 PRINT TAB(6) "FORMICA------------------- 4.6"
3110 PRINT TAB(6) "GLASS(WINDOW)-------4.2 TO 8.0"
3120 PRINT TAB(6) "HARD RUBBER--------------- 2.0"
3130 PRINT TAB(6) "LUCITE-------------------- 2.5"
3140 PRINT TAB(6) "MICA----------------2.5 TO 6.0"
3150 PRINT TAB(6) "NYLON--------------3.4 TO 22.4"
3160 PRINT TAB(6) "PARAFFIN COATED PAPER----- 3.5"
3170 PRINT TAB(6) "PORCELAIN-----------5.5 TO 6.0"
3180 PRINT TAB(6) "PURE WATER--------------- 81.0"
3190 PRINT TAB(6) "PYREX--------------------- 4.5"
3200 PRINT TAB(6) "QUARTZ-------------------- 5.0"
3210 PRINT TAB(6) "TEFLON-------------------- 2.1"
3220 PRINT TAB(6) "VARNISHED CAMBRIC--------- 4.0"
3230 PRINT
3240 PRINT"INPUT A ZERO FOR EITHER C, K, S, N, OR D":PRINT:PRINT"[151]"
3250 INPUT "C(CAPACITANCE IN PF)";C:IF C=0 THEN CT=CT+1
3260 INPUT "K(DIELECTRIC CONSTANT)";K:IF K=0 THEN CT=CT+1
3270 INPUT "S(AREA OF 1 PLATE SQ/INCH)";S:IF S=0 THEN CT=CT+1
3280 INPUT "N(NUMBER OF PLATES)";N:IF N=0 THEN CT=CT+1
3290 INPUT "D(PLATE SPACING/INCH)";D:IF D=0 THEN CT=CT+1
3300 IF CT<>1 THEN3320
3310 GOTO3340 
3320 GOSUB9980 
3330 GOTO3020 
3340 IF K=0 THEN3390 
3350 IF S=0 THEN3400 
3360 IF N=0 THEN3410 
3370 IF D=0 THEN3420 
3380 C=0.224*(K*S*(N-1))/D:GOTO3430
3390 K=(C*D)/(.224*S*(N-1)):GOTO3430
3400 S=(C*D)/(.224*K*(N-1)):GOTO3430
3410 N=((C*D)/(.224*K*S))+1:GOTO3430
3420 D=(.224*K*S*(N-1))/C
3430 PRINT :PRINT
3440 PRINT"C(CAPACITANCE)=";C "PF":PRINT:PRINT"C(CAPACITANCE)=";C/10^6 "MFD"
3450 PRINT:PRINT"K(DIELECTRIC CONSTANT)=";K:PRINT
3460 PRINT"S(AREA OF 1 PLATE/SQ INCH)=";S:PRINT
3470 PRINT"N(NUMBER OF PLATES)=";N:PRINT:PRINT"D(SEPARATION/INCH)=";D:PRINT
3480 GOSUB9840
3490 IF C$="R" THEN3020 
3500 GOTO6150 
3510 PRINT"[147]":GOSUB10270 
3520 PRINT TAB(12)"SERIES IMPEDANCE"
3530 PRINT TAB(12)"[183][183][183][183][183][183] [183][183][183][183][183][183][183][183][183]":PRINT:PRINT
3540 PRINT"THE COMPUTER WILL SOLVE Z FOR ANY TWO ORALL THREE VALUES OF XC,XL,& R.":PRINT
3550 PRINT:PRINTTAB(7)"XC";SPC(6)"XL";SPC(6)"R":PRINT
3560 PRINTTAB(4)S3$;S1$;S2$:PRINT:PRINT:PRINT
3570 PRINT"ENTER A ZER0 FOR ANY UNWANTED VALUE.":PRINT
3580 PRINT"ENTER ONLY ONE ZERO OR NO ZEROS.":PRINT:PRINT
3590 INPUT "[151]XC(OHMS)";C:IF C=0 THEN S3$=S4$
3600 INPUT "XL(OHMS)";L:IF L=0 THEN S1$=S4$
3610 INPUT "R(OHMS)";R:IF R=0 THEN S2$=S4$
3620 PRINT"[147]"
3630 PRINT TAB(12)"SERIES IMPEDANCE"
3640 PRINT TAB(12)"[183][183][183][183][183][183] [183][183][183][183][183][183][183][183][183]":PRINT:PRINT
3650 IF C+L=0 THEN3720
3660 IF C+R=0 THEN3720
3670 IF L+R=0 THEN3720
3680 PRINT:PRINTTAB(7)"[151]XC";SPC(6)"XL";SPC(6);"R":PRINT
3690 PRINTTAB(4)S3$;S1$;S2$:PRINT:PRINT
3700 PRINT:PRINT"OHMS XC=";C:PRINT"OHMS XL=";L:PRINT"OHMS  R=";R:PRINT
3710 GOTO3730 
3720 GOSUB9980 :GOTO3510
3730 IF C=0 THEN3790 
3740 IF L=0 THEN3830 
3750 IF R=0 THEN3860 
3760 Z=SQR(R^2+(L-C)^2):P=ATN((L-C)/R):GOSUB10260 :PRINT
3770 PRINT"SERIES Z OF XC,XL & R=";Z;"OHMS":PRINT
3780 PRINT"PHASE ANGLE=";P;"DEGREES":PRINT:GOTO3960
3790 Z=SQR(R^2+L^2):P=ATN(L/R):GOSUB10260 :PRINT
3800 PRINT"SERIES Z OF XL & R=";Z;"OHMS":PRINT
3810 PRINT"PHASE ANGLE=";P;"DEGREES":PRINT:GOTO3960
3820 GOSUB9840
3830 Z=SQR(R^2+C^2):P=-ATN(C/R):GOSUB10260 :PRINT
3840 PRINT"SERIES Z OF XC & R="Z;"OHMS":PRINT
3850 PRINT"PHASE ANGLE=";P;"DEGREES":PRINT:GOTO3960
3860 Z=L-C
3870 IF L<C THEN3900 
3880 IF L=C THEN3910 
3890 IF L>C THEN3920 
3900 Z=Z*(-1):P=-90:GOTO3930 
3910 P=0:GOTO3930 
3920 P=+90
3930 PRINT
3940 PRINT"SERIES Z OF XL & XC=";Z;"OHMS":PRINT
3950 PRINT"PHASE ANGLE=";P;"DEGREES":PRINT
3960 GOSUB9840:IF C$="R" THEN3510
3970 GOTO6150 
3980 PRINT"[147]":GOSUB10270 
3990 PRINT TAB(11) "PARALLEL IMPEDANCE"
4000 PRINT TAB(11) "[183][183][183][183][183][183][183][183] [183][183][183][183][183][183][183][183][183]":PRINT
4010 PRINT"THE COMPUTER WILL SOLVE Z FOR ANY TWO OR"
4020 PRINT"ALL THREE VALUES OF XC, XL, & R1.":PRINT
4030 PRINTTAB(13)S5$;S3$;S6$;" XC"
4040 PRINTTAB(13)S9$;SPC(8)S9$
4050 PRINTTAB(13)S9$;SPC(8)S9$
4060 PRINTTAB(13);T2$;S1$;T1$;" XL"
4070 PRINTTAB(12)S5$;T1$;SPC(8)T2$;S6$
4080 PRINTTAB(12)S9$;S9$;SPC(8)S9$;S9$
4090 PRINTTAB(12)S9$;S7$;S2$;S8$;S9$;"R1"
4100 PRINT TAB(12)S9$;SPC(10)S9$
4110 PRINT TAB(12)S9$;SPC(4)"Z"SPC(5)S9$:PRINT
4120 PRINT"ENTER A ZERO FOR ANY UNWANTED VALUE.":PRINT
4130 PRINT"ENTER ONLY ONE ZERO OR NO ZEROS.":PRINT
4140 INPUT "[151]XC(OHMS)";C:IF C=0 THEN S3$=T3$:CT=CT+1
4150 INPUT "XL(OHMS)";L:IF L=0 THEN S1$=T3$:CT=CT+1
4160 INPUT "R1(OHMS)";R:IF R=0 THEN S2$=T3$:CT=CT+1
4170 IF CT>1 THEN4320
4180 PRINT"[147]"
4190 PRINT TAB(11) "PARALLEL IMPEDANCE"
4200 PRINT TAB(11) "[183][183][183][183][183][183][183][183] [183][183][183][183][183][183][183][183][183]"
4210 PRINT:PRINT:PRINTSPC(28)"[151]OHMS":PRINT SPC(27)"[184][184][184][184][184][184]"
4220 PRINTTAB(13)S5$;S3$;S6$;" XC";C
4230 PRINTTAB(13)S9$;SPC(8)S9$
4240 PRINTTAB(13)S9$;SPC(8)S9$
4250 PRINTTAB(13);T2$;S1$;T1$;" XL";L
4260 PRINTTAB(12)S5$;T1$;SPC(8)T2$;S6$
4270 PRINTTAB(12)S9$;S9$;SPC(8)S9$;S9$
4280 PRINTTAB(12)S9$;S7$;S2$;S8$;S9$;"R1";R
4290 PRINT TAB(12)S9$;SPC(10)S9$
4300 PRINT TAB(12)S9$;SPC(4)"Z"SPC(5)S9$:PRINT
4310 GOTO4330 
4320 GOSUB9980 :GOTO3980 
4330 IF C=0 THEN4390
4340 IF L=0 THEN4410
4350 IF R=0 THEN4440
4360 Z=(R*C*L)/SQR((L^2*C^2)+((R*L)-(R*C))^2)
4370 P=ATN(((R*C)-(R*L))/(L*C)):GOSUB10260 :PRINT
4380 PRINT"PARALLEL Z OF XC,XL& R1=";Z;"0HMS":GOTO4430
4390 Z=(R*L)/SQR((R^2)+(L^2)):P=ATN(R/L):GOSUB10260 :PRINT
4400 PRINT"PARALLEL Z OF XL & R1=";Z;"OHMS":GOTO4430
4410 Z=(R*C)/SQR((R^2)+(C^2)):P=-ATN(R/C):GOSUB10260 :PRINT
4420 PRINT"PARALLEL Z OF XC & R1=";Z;"OHMS"
4430 PRINT:PRINT"PHASE ANGLE=";P;"DEGREES":PRINT:GOTO4500
4440 PRINT:IF L=C THEN4490
4450 Z=(L*C)/(L-C):PRINT
4460 IF C<L THEN4480
4470 Z=Z*(-1)
4480 PRINT"PARALLEL Z OF XC & XL=";Z;"OHMS":PRINT:GOTO4500 
4490 PRINT"Z APPROACHES INFINITY, PHASE ANGLE=0 WHEN XC=XL":PRINT
4500 GOSUB9840
4510 IF C$="R" THEN3980 
4520 GOTO6150 
4530 PRINT"[147]":GOSUB10270 
4540 PRINT TAB(7)"SERIES/PARALLEL IMPEDANCE
4550 [153] [163]7)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRCLOSEUSRUSRUSRUSRUSRUSRUSRUSRUSR":[153]
4560 [153]"TO FIGURE OTHER COMBINATIONS ENTERING"
4570 [153]"A ZERO FOR ANY ONE COMPONENT WILL SHUNT"
4580 [153]"IT FROM THE CIRCUIT, ALLOWING THE COM-  PUTER TO SOLVE THE NEW CONFIGURATION.":[153]
4590 [153]"ENTER ONLY ONE ZERO OR NO ZEROS.":[153]
4600 R1$[178]S2$:R2$[178]S2$
4610 [153]:[153][163]10)"R(L)";[166]13)"XL"
4620 [153][163]7)S5$;R1$;S4$;S1$;S6$
4630 [153][163]7)S9$;[166]24)S9$
4640 [153][163]7)T1$;[166]24)T2$
4650 [153][163]7)S9$;[166]24)S9$
4660 [153][163]7)S7$;R2$;S4$;S3$;S8$:[153]
4670 [153][163]10)"R(C)";[166]13)"XC"
4680 [153]
4690 [133] "POKER(L) OHMS";A:[139] A[178]0 [167] R1$[178]S4$:CT[178]CT[170]1
4700 [133] "XL OHMS   ";B:[139] B[178]0 [167] S1$[178]S4$:CT[178]CT[170]1
4710 [133] "R(C) OHMS  ";C:[139] C[178]0 [167] R2$[178]S4$:CT[178]CT[170]1
4720 [133] "XC OHMS  ";D:[139] D[178]0 [167] S3$[178]S4$:CT[178]CT[170]1
4730 [153]
4740 [139] CT[177]1 [167]4870 
4750 [153]"LOAD"
4760 [153] [163]7)"SERIES/PARALLEL IMPEDANCE
4770 PRINT TAB(7)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][160][183][183][183][183][183][183][183][183][183]":PRINT
4780 PRINT"[147]":PRINTTAB(12)"[151]READINGS IN OHMS":PRINT
4790 PRINT:PRINTTAB(8)"R(L)";A;SPC(8)"XL";B
4800 PRINTTAB(7)S5$;R1$;S4$;S1$;S6$
4810 PRINTTAB(7)S9$;SPC(24)S9$
4820 PRINTTAB(7)T1$;SPC(24)T2$
4830 PRINTTAB(7)S9$;SPC(24)S9$
4840 PRINTTAB(7)S7$;R2$;S4$;S3$;S8$:PRINT
4850 PRINTTAB(8)"R(C)";C;SPC(8)"XC";D;:PRINT:PRINT:PRINT
4860 GOTO4880 
4870 GOSUB9980 :GOTO4530 
4880 Z=SQR(((A^2+B^2)*(C^2+D^2))/((A+C)^2+(B-D)^2))
4890 P=ATN(((B*(C^2+D^2))-(D*(A^2+B^2)))/((A*(C^2+D^2))+(C*(A^2+B^2))))
4900 GOSUB10260 
4910 IF A=0 THEN4960 
4920 IF B=0 THEN4970 
4930 IF C=0 THEN4980 
4940 IF D=0 THEN4990  :PRINT
4950 PRINT"IMPEDANCE OF R(L) AND XL PARALLEL WITH  R(C) AND XC":PRINT:GOTO5000 
4960 PRINT"IMPEDANCE OF XL PARALLEL WITH R(C) AND  XC":PRINT:GOTO5000 
4970 PRINT"IMPEDANCE OF R(L) PARALLEL WITH R(C) ANDXC":PRINT:GOTO5000
4980 PRINT"IMPEDANCE OF XC PARALLEL WITH R(L) AND  XL":PRINT:GOTO5000 
4990 PRINT"IMPEDANCE OF R(C) PARALLEL WITH R(L) ANDXL":PRINT
5000 PRINT"Z=";Z;"OHMS":PRINT
5010 PRINT"PHASE ANGLE=";P;"DEGREES":PRINT
5020 GOSUB9840
5030 IF C$="R" THEN4530 
5040 GOTO6150
5050 PRINT"[147]":GOSUB10270 
5060 PRINTTAB(3)"CHARGE/ENERGY STORED IN A CAPACITOR"
5070 PRINTTAB(3)"[183][183][183][183][183][183][183][183][183][183][183][183][183] [183][183][183][183][183][183] [183][183] [183] [183][183][183][183][183][183][183][183][183]":PRINT
5080 PRINT"INPUT A ZERO FOR EITHER Q(COULOMBS),"
5090 PRINT"C(CAPACITANCE) OR E(VOLTAGE).":PRINT
5100 INPUT "[151]Q(COULOMBS)";B:INPUT "C(FARADS)  ";A
5110 INPUT "E(VOLTS ACROSS CAP.)";C
5120 GOSUB9870:W=(A*C^2)/2:PRINT:PRINT
5130 IF ER=1 THEN GOTO5050 
5140 PRINT"Q(CHARGE)=";B"COULOMBS":PRINT"W(ENERGY)=";W "JOULES(WATT SEC.)":PRINT
5150 PRINT"C(CAP.)=";A*10^6 "MFD":PRINT"C(CAP)=";A*10^12 "PF":PRINT
5160 PRINT"E(VOLTS ACROSS CAP.)=";C "VOLTS":PRINT
5170 GOSUB9840
5180 IF C$="R" THEN5050 
5190 GOTO6150 
5200 PRINT"[147]":GOSUB10270 
5210 PRINT TAB(2)"SINE WAVE (FREQ.,PERIOD & WAVELENGTH)"
5220 PRINT TAB(2)"[183][183][183][183] [183][183][183][183] [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
5230 PRINT"ONE KNOWN ENTRY IS REQUIRED,ENTER 0 FOR OTHER INPUTS.":PRINT
5240 PRINT"INPUTS(T,F,W)":PRINT
5250 INPUT "[151]T(PERIOD SECONDS)";T:INPUT "F(HERTZ)";F
5260 INPUT "W(WAVELENGTH-METERS)";W
5270 IF T+W+F=0 THEN5310 
5280 IF T+F=0 THEN5330 
5290 IF T+W=0 THEN5340 
5300 IF F+W=0 THEN5350 
5310 GOSUB9980 
5320 GOTO5200 
5330 F=3E8/W
5340 T=1/F
5350 F=1/T
5360 W=3E8/F
5370 PRINT
5380 PRINT"T(SECONDS)=";T:PRINT"T(MILLISECONDS)="T*10^3:PRINT"T(MICROSECONDS)=";T*10^6
5390 PRINT"T(NANOSECONDS)=";T*10^9
5400 PRINT:PRINT"F(HERTZ)=";F:PRINT"F(KHZ)  =";F/10^3
5410 PRINT"F(MHZ)  =";F/10^6:PRINT:PRINT"W(WAVELENGTH-METERS)=";W:PRINT
5420 GOSUB9840
5430 IF C$="R" THEN5200 
5440 GOTO6150 
5450 PRINT"[147]":GOSUB10270 
5460 PRINT TAB(14)"OHMS LAW AC"
5470 PRINT TAB(14)"[183][183][183][183][160][183][183][183][160][183][183]"
5480 PRINT"INPUT A ZERO FOR EITHER I,E,OR Z.":PRINT
5490 INPUT "[151]I(AMPS-RMS)";A:INPUT "E(VOLTS-RMS)";B:INPUT "Z(IMP.-OHMS)";C
5500 INPUT "PH(PHASE ANGLE IF KNOWN ELSE 0) DEG.";PH
5510 GOSUB9870 :IF ER=1 THEN GOTO5450 
5520 P=(PH*(null))/180:W=B*A*COS(P):EP=B*1.414:EA=EP*.637
5530 IP=A*1.414:IA=IP*.637:PRINT
5540 PRINT"AMPS-RMS =";A:PRINT"AMPS-PEAK=";IP:PRINT"AMPS-AVG.=";IA:PRINT
5550 PRINT"VOLTS-RMS =";B:PRINT"VOLTS-PEAK=";EP:PRINT"VOLTS-AVG.=";EA:PRINT
5560 PRINT"Z(OHMS)=";C:PRINT
5570 PRINT"WATTS =";W" AT A PHASE ANGLE OF"  ;PH "DEG."
5580 GOSUB9840
5590 IF C$="R" THEN5450 
5600 GOTO6150 
5610 PRINT"[147]":GOSUB10270 
5620 PRINTTAB(6)"RF COIL WINDING SINGLE LAYER"
5630 PRINTTAB(6)"[183][183][160][183][183][183][183][160][183][183][183][183][183][183][183] [183][183][183][183][183][183] [183][183][183][183][183]"
5640 PRINT"THE DIAMETER OF THE CORE AND LENGTH OF  THE COIL ARE REQUIRED. THE MEAN DIA."
5650 PRINT"WILL BE CALCULATED BY THE PROGRAM.":PRINT
5660 PRINT"THIS SET CAN BE USED TO ESTIMATE THE"
5670 PRINT"INDUCTANCE OF AN EXISTING COIL.":PRINT
5680 PRINT"INPUTS(L,N,LGTH,D)":PRINT
5690 PRINT"INPUT A ZERO FOR EITHER L OR N":PRINT
5700 INPUT "[151]L(IND. MICROHENRIES)";L
5710 INPUT "N(NUMBER OF TURNS)";N
5720 INPUT "LGTH(LENGTH OF COIL IN INCHES)";LTH
5730 INPUT "D(CORE DIA.-INCHES)";D
5740 CT=0
5750 IF L+ N=0 THEN5830
5760 IF L+LTH=0 THEN5830
5770 IF N+LTH=0 THEN5830
5780 IF D=0 THEN5830
5790 IF LTH=0 THEN5830
5800 IF L*N*LTH*D>0 THEN5830 
5810 R=D/2
5820 GOTO5850 
5830 GOSUB9980 
5840 GOTO5610 
5850 IF L=0 THEN5870
5860 IF N=0 THEN5880 
5870 R=R+(LTH/(2*N)):L=((N*R)^2)/((9*R)+(10*LTH)):GOTO5900
5880 N=SQR(L*((9*R)+(10*LTH)))/R
5890 IF CT<1 THEN R=R+(LTH/(2*N)):CT=1:GOTO5880 
5900 PRINT"[147]"
5910 PRINT"L(MICROHENRIES)=";L:PRINT"N(NO. OF TURNS)=";N
5920 PRINT"LENGTH-INCHES=";LTH:PRINT"COIL DIA. INCHES=";2*(R+(LTH/(2*N)));"APPROX.":PRINT
5930 PRINTTAB(5)"GAUGE               LINEAR"
5940 PRINTTAB(2)"ENAMEL WIRE          TURNS/INCH"
5950 PRINT "----------------  ---------------------"
5960 PRINT TAB(2)"8    19   [149]30      7.6   26.4    [149]90.5"
5970 PRINT TAB(2)"9    20   [149]31      8.6   29.4   [149]101.0"
5980 PRINT TAB(2)"10   21   [149]32      9.6   33.1   [149]113.0"
5990 PRINT TAB(2)"11   22   [149]33     10.7   37.0   [149]127.0"
6000 PRINT TAB(2)"12   23   [149]34     12.0   41.3   [149]143.0"
6010 PRINT TAB(2)"13   24   [149]35     13.5   46.3   [149]158.0"
6020 PRINT TAB(2)"14   25   [149]36     15.0   51.7   [149]175.0"
6030 PRINT TAB(2)"15   26   [149]37     16.8   58.0   [149]198.0"
6040 PRINT TAB(2)"16   27   [149]38     18.9   64.9   [149]224.0"
6050 PRINT TAB(2)"17   28   [149]39     21.2   72.7   [149]248.0"
6060 PRINT TAB(2)"18   29   [149]40     23.6   81.6   [149]282.0"
6070 T=N/LTH:IF T<25 THEN T$="":GOTO6100 
6080 IF T>85 THEN T$="[149]":GOTO6100 
6090 T$=""
6100 PRINT:PRINT"[151]USE CLOSEST TURNS/INCH=";T$T
6110 GOSUB9840
6120 IF C$="R" THEN5610 
6130 GOTO6150 
6140 INPUT C$
6150 IF C$="M" THEN610 
6160 IF C$="S" THEN1000
6170 IF C$="R" THEN6190 
6180 PRINT"INPUT ERROR ! TRY AGAIN"
6190 PRINT"COMPUTER WILL ACCEPT ONLY(M) OR (S) NOW."
6200 PRINT"USE(S) & EQUATION NO. TO REPEAT THE SET."
6210 GOTO6140
6220 PRINT"[147]":GOSUB10270 
6230 PRINTTAB(6)"RF COIL WINDING SINGLE LAYER"
6240 PRINTTAB(6)"[183][183][160][183][183][183][183][160][183][183][183][183][183][183][183] [183][183][183][183][183][183] [183][183][183][183][183]"
6250 PRINT TAB(4)"FOR USE WITH ENAMEL COATED WIRE."
6260 PRINT TAB(6)"GAUGES #8 THRU #40 INCLUSIVE."
6270 PRINT
6280 PRINT TAB(2)"INPUTS REQUIRED(L,DIA.,WIRE GAUGE)" :PRINT
6290 INPUT "[151](L)INDUCTANCE IN MICROHENRIES=";L:PRINT
6300 INPUT "CORE DIAMETER(INCHES)=";D:PRINT
6310 INPUT "WIRE GAUGE=";G
6320 IF L*D*G=0 THEN6350 
6330 IF G<8 OR G>40 THEN6350 
6340 G=G-7:GOTO6360 
6350 GOSUB9980 :GOTO6220 
6360 FOR J=1 TO 33
6370 READ X(J):IF J=G THEN W=X(J)
6380 NEXT J:RESTORE:GOTO6420 
6390 DATA .1316,.1163,.1042,.0935,.0833,.0741,.0667,.0595,.0529,.0472,.0424
6400 DATA .0379,.0340,.0302,.0270,.0242,.0216,.0193,.0172,.0154,.0138,.0123
6410 DATA .0110,.0099,.0088,.0079,.0070,.0063,.0057,.0051,.0045,.0040,.0035
6420 N=1:A=.5*(D+W)
6430 PRINT"PLEASE WAIT!SIMULATING WINDING THE COIL."
6440 PRINTTAB(13)"[151]TURNS";N
6450 L1=(N*A)^2/(9*A+(10*(W*N)))
6460 IFL-L1>.05THENN=N+1:PRINTTAB(18);"[145]"N:GOTO6450
6470 F1=(N*2*A*(null))+6:IF F1>12 THEN FT=INT(F1/12)
6480 IF F1<12 THEN I=F1:GOTO6500 
6490 I=INT((F1-FT*12)+.5)
6500 PRINT"[151]INDUCTANCE-MICROHENRIES=";L1:PRINT
6510 PRINT"LENGTH OF WIRE(APPROX)";FT"FEET";I"INCHES  INCLUDING 3 INCH LEADS."
6520 FT=0:PRINT
6530 PRINT"LENGTH OF COIL=";(N*W);"INCHES"
6540 GOSUB9840 
6550 IF C$="R" THEN6220 
6560 GOTO6150 
6570 PRINT"[147]":GOSUB10270 
6580 PRINTTAB(12)"PARALLEL IMPEDANCE"
6590 PRINTTAB(12)"[183][183][183][183][183][183][183][183] [183][183][183][183][183][183][183][183][183]":PRINT
6600 PRINT"INPUT A ZERO FOR EITHER R,Z1,OR ZT.":PRINT
6610 PRINT"IF A VALUE FOR ZT IS ENTERED,IT MUST BE LESS THAN R OR Z1":PRINT
6620 INPUT "[151]R (OHMS)         ";A
6630 INPUT "Z1(OHMS XL OR XC)";B
6640 INPUT "ZT(OHMS)         ";C
6650 IF C=>A+B THEN PRINT"ZT VALUE TOO HIGH,PLEASE REPEAT":GOSUB10270 :GOTO6620 
6660 IF C>A+B THEN GOTO6860 
6670 IF A+B=0 THEN6860 
6680 IF A+C=0 THEN6860 
6690 IF B+C=0 THEN6860 
6700 IF A*B*C>0 THEN6860
6710 IF B=0 THEN6740 
6720 IF C=0 THEN6750 
6730 A=B*C/SQR(B^2-C^2):GOTO6760 
6740 B=A*C/SQR(A^2-C^2):GOTO6760 
6750 C=A*B/SQR(A^2+B^2)
6760 PRINT
6770 PRINT "[151]R (OHMS)         ";A:PRINT
6780 PRINT "Z1(OHMS XL OR XC)";B:PRINT
6790 PRINT "ZT(OHMS)         ";C:PRINT
6800 P=ATN(A/B)
6810 GOSUB10260
6820 PRINT"PHASE ANGLE":PRINT"[151]ANGLE=";P"DEG(+ FOR XL,- FOR XC)"
6830 GOSUB9840
6840 IF C$="R" THEN6570 
6850 GOTO6150 
6860 GOSUB9980 
6870 GOTO6570 
6880 PRINT"[147]":GOSUB10270 
6890 PRINTTAB(12)"SERIES IMPEDANCE"
6900 PRINTTAB(12)"[183][183][183][183][183][183] [183][183][183][183][183][183][183][183][183]":PRINT
6910 PRINT"INPUT A ZERO FOR EITHER R,Z1,OR ZT.":PRINT
6920 PRINT"IF A VALUE FOR ZT IS ENTERED,IT MUST BE GREATER THAN R 0R Z1":PRINT
6930 INPUT "[151]R (OHMS)         ";A
6940 INPUT "Z1(OHMS XL OR XC)";B
6950 INPUT "ZT(OHMS)         ";C
6960 IF C=0 THEN6980 
6970 IF C<A+B THEN GOTO7190 
6980 IF A+B=0 THEN7190 
6990 IF A+C=0 THEN7190 
7000 IF B+C=0 THEN7190 
7010 IF A*B*C>0 THEN7190 
7020 IF B=0 THEN7060 
7030 IF C=0 THEN7080 
7040 A=SQR(C^2-B^2)
7050 GOTO7090 
7060 B=SQR(C^2-A^2)
7070 GOTO7090 
7080 C=SQR(A^2+B^2)
7090 PRINT
7100 PRINT"[151]R(OHMS)          ";A:PRINT
7110 PRINT"Z1(OHMS XL OR XC)";B:PRINT
7120 PRINT"ZT(OHMS)         ";C
7130 P=ATN(B/A):PRINT
7140 GOSUB10260
7150 PRINT"PHASE ANGLE":PRINT"[151]ANGLE=";P"DEG(+ FOR XL,- FOR XC)"
7160 GOSUB9840 
7170 IF C$="R" THEN6880 
7180 GOTO6150 
7190 GOSUB9980 
7200 GOTO6880 
7210 PRINT"[147]":GOSUB10270 
7220 PRINT TAB(11)"SERIES RESISTANCE"
7230 PRINT TAB(11)"[183][183][183][183][183][183] [183][183][183][183][183][183][183][183][183][183]":PRINT
7240 INPUT "HOW MANY RESISTORS ";A:PRINT
7250 N=0 : B=0
7260 PRINT"[151]NO.";N+1
7270 INPUT"      [145] RESISTOR(OHMS)";R:PRINT
7280 B=B+R:N=N+1
7290 IF N<A GOTO7260 :PRINT
7300 PRINT"TOTAL SERIES RES.=";B;"OHMS":PRINT
7310 PRINT TAB(18);B*10^-3"K OHMS":PRINT
7320 PRINT TAB(18);B*10^-6"M OHMS":PRINT
7330 GOSUB9840
7340 IF C$="R" THEN7210 
7350 GOTO6150 
7360 PRINT"[147]":GOSUB10270 
7370 PRINT TAB(10)"PARALLEL CAPACITORS"
7380 PRINT TAB(10)"[183][183][183][183][183][183][183][183] [183][183][183][183][183][183][183][183][183][183]":PRINT
7390 INPUT "HOW MANY CAPACITORS ";A:PRINT
7400 N=0 : B=0
7410 PRINT"[151]NO.";N+1
7420 INPUT"      [145] CAPACITOR(FARADS)";C:PRINT
7430 B=B+C:N=N+1
7440 IF N<A GOTO7410 :PRINT
7450 PRINT"TOTAL PARALLEL CAP.=";B"FARADS":PRINT
7460 PRINT TAB(20);B*10^6"MFD.":PRINT
7470 PRINT TAB(20);B*10^12"PFD.":PRINT
7480 GOSUB9840
7490 IF C$="R" THEN7360 
7500 GOTO6150 
7510 PRINT"[147]":GOSUB10270 
7520 PRINT TAB(13)"RESISTOR CODES"
7530 PRINT TAB(13)"[183][183][183][183][183][183][183][183] [183][183][183][183][183]"
7540 PRINT "FOR RESISTANCE INPUT USE NO. 0 THRU 9.":PRINT
7550 PRINT "FOR COLOR INPUT,TYPE [144]BLK,[149]BRN,[150]RED,[129]ORG"
7560 PRINT "[158]YEL,GRN,BLU,[156]VIO,[155]GRY,OR [144]WHT":PRINT
7570 PRINT TAB(15)"[144][186]"D$
7580 PRINT TAB(15)"[144][208]"D$
7590 PRINT TAB(17)"[145][145]"E$
7600 PRINT TAB(17)""E$
7610 PRINT TAB(18)"[145][145]"F$
7620 PRINT TAB(18)""F$
7630 PRINT TAB(19)"[145][145][152]      "
7640 PRINT TAB(19)"[152]      "
7650 PRINT TAB(24)"[145][145][144][204]"
7660 PRINT TAB(24)"[144][207]"
7670 PRINT TAB(14)""D1$;P$;E1$;F2$
7680 PRINT TAB(10)D3$;E3$;F3$
7690 PRINT:PRINT"4TH BAND TOLERANCE,RED 2%,GOLD 5%,SILVER 10%,NONE 20%.":PRINT
7700 PRINT "ENTER R FOR RESISTANCE INPUT."
7710 PRINT "ENTER C FOR COLOR INPUT."
7720 INPUT "R,C OR Q TO QUIT.";G$
7730 IF G$="R" THEN7780
7740 IF G$="C" THEN7980
7750 IF G$="Q" THEN8300
7760 GOSUB9980 
7770 GOTO7510 
7780 INPUT"FIRST DIGIT";D:IF D=0 THEN PRINT"FIRST NO. CAN'T BE 0":GOTO7780 
7790 GOSUB8260 
7800 D$=X$:D1$=X1$:D3$=X3$
7810 INPUT"SECOND DIGIT";D
7820 GOSUB8260 
7830 E$=X$:E1$=X1$:E3$=X3$
7840 INPUT"NO. OF ZEROS AFTER 2ND DIGIT";D:P$=""
7850 IF D=5 THEN P$="."
7860 GOSUB8260 
7870 F$=X$:F2$=X2$:F3$=X3$:GOTO7510 
7880 X$="[144][167]":X1$="0":X2$=" OHMS":X3$=" BLACK":RETURN
7890 X$="[149][167]":X1$="1":X2$="0 OHMS":X3$=" BROWN":RETURN
7900 X$="[150][167]":X1$="2":X2$="00 OHMS":X3$=" RED":RETURN
7910 X$="[129][167]":X1$="3":X2$=" K OHMS":X3$=" ORANGE":RETURN
7920 X$="[158][167]":X1$="4":X2$="0 K OHMS":X3$=" YELLOW":RETURN
7930 X$="[167]":X1$="5":X2$=" MEGOHMS":X3$=" GREEN":RETURN
7940 X$="[167]":X1$="6":X2$=" MEGOHMS":X3$=" BLUE":RETURN
7950 X$="[156][167]":X1$="7":X2$="0 MEGOHMS":X3$=" VIOLET":RETURN
7960 X$="[155][167]":X1$="8":X2$="00 MEGOHMS":X3$=" GRAY":RETURN
7970 X$="[167]":X1$="9":X2$="000 MEGOHM":X3$=" WHITE":RETURN
7980 INPUT"FIRST COLOR";Z$
7990 IF Z$="BLK"THEN PRINT "FIRST COLOR CAN'T BE BLACK":GOTO7980 
8000 R=1:GOSUB8150 
8010 IF Y$<>Z$ THEN GOTO8290 
8020 GOSUB8260 
8030 D$=X$:D1$=X1$:D3$=X3$
8040 INPUT"SECOND COLOR";Z$
8050 R=2:GOSUB8150 
8060 IF Y$<>Z$ THEN GOTO8290 
8070 GOSUB8260 
8080 E$=X$:E1$=X1$:E3$=X3$
8090 INPUT"THIRD COLOR";Z$:P$=""
8100 IF Z$="GRN"THEN P$="."
8110 R=3:GOSUB8150 
8120 IF Y$<>Z$ THEN GOTO8290 
8130 GOSUB8260 
8140 F$=X$:F2$=X2$:F3$=X3$:GOTO7510 
8150 IF Z$="BLK" THEN D=0:Y$="BLK"
8160 IF Z$="BRN" THEN D=1:Y$="BRN"
8170 IF Z$="RED" THEN D=2:Y$="RED"
8180 IF Z$="ORG" THEN D=3:Y$="ORG"
8190 IF Z$="YEL" THEN D=4:Y$="YEL"
8200 IF Z$="GRN" THEN D=5:Y$="GRN"
8210 IF Z$="BLU" THEN D=6:Y$="BLU"
8220 IF Z$="VIO" THEN D=7:Y$="VIO"
8230 IF Z$="GRY" THEN D=8:Y$="GRY"
8240 IF Z$="WHT" THEN D=9:Y$="WHT"
8250 RETURN
8260 D=D+1:IF D>10 THEN PRINT"INPUT ERROR! PLEASE REPEAT":GOTO7780 
8270 ON D GOSUB7880 ,7890,7900,7910,7920,7930,7940,7950,7960,7970
8280 RETURN
8290 PRINT "[150] INPUT ERROR! PLEASE REPEAT":ON R GOTO7980 ,8040,8090
8300 GOSUB9840
8310 IF C$="R" THEN7510 
8320 GOTO6150 
8330 PRINT"[147]":GOSUB10270 
8340 PRINT TAB(11)"SERIES INDUCTANCE"
8350 PRINT TAB(11)"[183][183][183][183][183][183] [183][183][183][183][183][183][183][183][183][183]":PRINT
8360 INPUT "HOW MANY INDUCTORS ";A:PRINT
8370 N=0 : B=0
8380 PRINT"[151]NO.";N+1
8390 INPUT"      [145] INDUCTOR(HENRIES)";H:PRINT
8400 B=B+H:N=N+1
8410 IF N<A GOTO8380 :PRINT
8420 PRINT"TOTAL SERIES IND.=";B;"HENRIES":PRINT
8430 PRINT TAB(18);B*10^3"MIL HENRIES":PRINT
8440 PRINT TAB(18);B*10^6"MIC HENRIES":PRINT
8450 GOSUB9840
8460 IF C$="R" THEN8330 
8470 GOTO6150 
8480 PRINT"[147]":GOSUB10270 
8490 PRINT"DECIBELS,WATTS,VOLT & AMP. CONVERSIONS"
8500 PRINT"[183][183][183][183][183][183][183][183] [183][183][183][183][183] [183][183][183][183] [183] [183][183][183][183] [183][183][183][183][183][183][183][183][183][183][183]"
8510 PRINT"THIS SECTION ASSUMES THAT THE IMPEDANCE ACROSS WHICH VOLTAGES AND CURRENT ARE"
8520 PRINT"MEASURED ARE EQUAL.":PRINT
8530 PRINT"INPUT A ZERO FOR EITHER THE INPUT,OUTPUTOR DB VALUES. YOU WILL ALSO BE ASKED TO"
8540 PRINT"INDICATE IF THE INPUTS WILL BE (W)WATTS,(V)VOLTS,OR (A)AMPS.":PRINT
8550 INPUT"[151]ENTER TYPE OF INPUT W,V,OR A";J$:PRINT
8560 IF J$<>"W" THEN8730 
8570 INPUT"[151]INPUT IN WATTS=";IP:INPUT"OUTPUT IN WATTS=";OP:INPUT"GAIN OR LOSS(-)IN DB=";DB:PRINT
8580 IF IP+OP=0 THEN8630 
8590 IF IP+ABS(DB)=0 THEN8630 
8600 IF OP+ABS(DB)=0 THEN8630 
8610 IF IP*OP*DB>0 THEN8630 
8620 GOTO8650 
8630 GOSUB9980 
8640 GOTO8480 
8650 IF IP=0 THEN8680 
8660 IF OP=0 THEN8690 
8670 DB=10*LOG(OP/IP)/LOG(10):GOTO8700 
8680 Y=LOG(OP)-((DB*LOG(10))/10):LY=Y/LOG(10):IP=10^LY:GOTO8700 
8690 X=((DB*LOG(10))/10)+LOG(IP):LX=X/LOG(10):OP=10^LX
8700 PRINT"[151]INPUT POWER=";IP"WATTS":PRINT"OUTPUT POWER=";OP"WATTS"
8710 PRINT"GAIN OR LOSS(-)=";DB"DB":PRINT
8720 GOTO9060 
8730 IF J$<>"V" THEN8900 
8740 INPUT"[151]INPUT VOLTAGE=";IE:INPUT"OUTPUT VOLTAGE=";OE:INPUT"GAIN OR LOSS(-) IN DB=";DB:PRINT
8750 IF IE+OE=0 THEN8800 
8760 IF IE+ABS(DB)=0 THEN8800
8770 IF OE+ABS(DB)=0 THEN8800
8780 IF IE*OE*DB>0 THEN8800
8790 GOTO8820 
8800 GOSUB9980 
8810 GOTO8480 
8820 IF IE=0 THEN8850 
8830 IF OE=0 THEN8860 
8840 DB=20*LOG(OE/IE)/LOG(10):GOTO8870 
8850 Y=LOG(OE)-(DB*LOG(10)/20):LY=Y/LOG(10):IE=10^LY:GOTO8870 
8860 X=((DB*LOG(10))/20)+LOG(IE):LX=X/LOG(10):OE=10^LX
8870 PRINT"[151]INPUT VOLTAGE=";IE"VOLTS":PRINT"OUTPUT VOLTAGE=";OE"VOLTS"
8880 PRINT"GAIN OR LOSS(-)=";DB"DB":PRINT
8890 GOTO9060 
8900 IF J$<>"A" THEN GOSUB9980 :GOTO8480 
8910 INPUT"[151]INPUT AMPS=";II:INPUT"OUTPUT AMPS=";OI:INPUT"GAIN OR LOSS(-) IN DB=";DB:PRINT
8920 IF II+OI=0 THEN8970 
8930 IF II+ABS(DB)=0 THEN8970
8940 IF OI+ABS(DB)=0 THEN8970
8950 IF II*OI*DB>0 THEN8970
8960 GOTO8990 
8970 GOSUB9980 
8980 GOTO8480 
8990 IF II=0 THEN9020 
9000 IF OI=0 THEN9030 
9010 DB=20*LOG(OI/II)/LOG(10):GOTO9040 
9020 Y=LOG(OI)-(DB*LOG(10)/20):LY=Y/LOG(10):II=10^LY:GOTO9040 
9030 X=((DB*LOG(10))/20)+LOG(II):LX=X/LOG(10):OI=10^LX
9040 PRINT"[151]INPUT CURRENT=";II"AMPS":PRINT"OUTPUT CURRENT=";OI"AMPS"
9050 PRINT"GAIN OR LOSS(-)=";DB"DB":PRINT
9060 GOSUB9840 
9070 IF C$="R" THEN8480 
9080 GOTO6150 
9090 PRINT"[147]":GOSUB10270 
9100 PRINT TAB(8)"SIMULTANEOUS EQUATIONS"
9110 PRINT TAB(8)"[197][197][197][197][197][197][197][197][197][197][197][197][160][197][197][197][197][197][197][197][197][197]":PRINT
9120 PRINT"   THIS SECTION IS AN AID TO SOLVING
9130 [153]"EQUATIONS ASSOCIATED WITH BRANCH CIRCUITANALYSIS."
9140 [153]"   EQUATIONS OF UP THRU FOUR VARIABLES"
9150 [153]"CAN BE EASILY SOLVED,BUT REMEMBER THAT"
9160 [153]"THE NUMBER OF EQUATIONS NEEDED IS THE"
9170 [153]"SAME AS THE NUMBER OF VARIABLES THAT ARETO BE SOLVED."
9180 [153]"   AFTER DEVELOPING YOUR EQUATION SETS,"
9190 [153]"USING KIRCHHOFF'S LAWS,ENTER THE NUMBER"
9200 [153]"OF UNKNOWNS TO BE SOLVED;THEN ENTER,ON"
9210 [153]"PROMPT,THE (M)MULTPLIER VALUES FOR EACH"
9220 [153]"VARIABLE ACCORDING TO THIS FORMAT.":[153]
9230 [153] [163]3)"(M)W + (M)X + (M)Y + (M)Z =S(SUM)":[153]
9240 [133] "POKENUMBER OF UNKNOWNS";N:[139] N[177]4 [176] N[179]1 [167]9240
9250 [153]"LOAD"
9260 [153] [163]6)"(M)W + (M)X + (M)Y + (M)Z =(S)"
9270 [153] [163]5)"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
9280 [129] R[178]1 [164] N:[129] C[178]1 [164] N:[153]"POKE"
9290 [133]"M=";A(R,C):L(R,C)[178]A(R,C)
9300 [139] C[178]1 [167] A[178]A(R,C)
9310 [139] C[178]2 [167] T[178]A(R,C)
9320 [139] C[178]3 [167] H[178]A(R,C)
9330 [139] C[178]4 [167] P[178]A(R,C)
9340 [153]"ONON":[130] C:[133]"S";S(R):S[178]S(R)
9350 [153][163]9)"ON"A"W +";T"X +";H"Y +";P"Z";"=";S:[130] R
9360 [129] C[178]1 [164] N:[139] L(C,C)[179][177]0 [167]9380
9370 [141]9710 
9380 L(C,C)[178]1[173]L(C,C):[129] D[178]1 [164] N:[139] (D[171]C)[178]0 [167]9420 
9390 L(D,C)[178]L(D,C)[172]L(C,C):[129] E[178]1 [164] N:[139] (E[171]C)[178]0 [167]9410 
9400 L(D,E)[178]L(D,E)[171]L(D,C)[172]L(C,E)
9410 [130] E
9420 [130] D
9430 [129] E[178]1 [164] N:[139] (E[171]C)[178]0 [167]9450 
9440 L(C,E)[178][171]L(C,C)[172]L(C,E)
9450 [130] E:[130]C
9460 [129] R[178]1 [164] N:X(R)[178]0:[129] C[178]1 [164] N
9470 [129] C[178]1 [164] N:X(R)[178]X(R)[170]L(R,C)[172]S(C):[130] C
9480 [139] R[178]1 [167] W[178]X(R)
9490 [139] R[178]2 [167] X[178]X(R)
9500 [139] R[178]3 [167] Y[178]X(R)
9510 [139] R[178]4 [167] Z[178]X(R)
9520 [130] R
9530 [153]:[133]" ARE THESE CORRECT Y/N";Q$:[153]:[153]
9540 [139] Q$[178]"N" [167] [137]9250 
9550 [153]"CHECK OF EQUATIONS USING THE SOLUTIONS. THE S VALUES MUST AGREE."
9560 S1[178]A(1,1)[172]W[170]A(1,2)[172]X[170]A(1,3)[172]Y[170]A(1,4)[172]Z
9570 S2[178]A(2,1)[172]W[170]A(2,2)[172]X[170]A(2,3)[172]Y[170]A(2,4)[172]Z
9580 S3[178]A(3,1)[172]W[170]A(3,2)[172]X[170]A(3,3)[172]Y[170]A(3,4)[172]Z
9590 S4[178]A(4,1)[172]W[170]A(4,2)[172]X[170]A(4,3)[172]Y[170]A(4,4)[172]Z
9600 T1[178]S(1)[170]S(2)[170]S(3)[170]S(4):T2[178](S1[170]S2[170]S3[170]S4)
9610 [139] [182](T1[171]T2)[177].4 [167] [137]9760 
9620 [153]:[153] [163]3)"CHECK"[166]12)"ENTERED":[153]"POKE"
9630 [153]"EQ#1 S=";S1,"S=";S(1)
9640 [153]"EQ#2 S=";S2,"S=";S(2)
9650 [153]"EQ#3 S=";S3,"S=";S(3)
9660 [153]"EQ#4 S=";S4,"S=";S(4):[153]:[153]
9670 [153]"SOLUTIONS":[153]"POKE"
9680 [153] [163]10)"POKEW=";W:[153]:[153][163]10)"X=";X:[153]
9690 [153] [163]10)"Y=";Y:[153]:[153][163]10)"Z=";Z:[153]
9700 [137]9810
9710 [129] K[178]C[170]1 [164] N:[139] L(K,C)[178]0 [167]9750
9720 [139] L(K,C)[178]0 [167]9750 
9730 [129] E[178]1 [164] N:DL[178]L(C,E):L(C,E)[178]L(K,E):L(K,C)[178]DL:[130] E:DS[178]S(C)
9740 S(C)[178]S(K):S(K)[178]DS:[137]9800 
9750 [130] K:[153]
9760 [153]"SORRY!I HAVE NO UNIQUE SOLUTION FOR"
9770 [153]"THIS SET OF EQUATIONS,PLEASE RECHECK    YOUR INPUTS FOR ACCURACY."
9780 [153]
9790 [137]9810 
9800 [142]
9810 [141]9840 
9820 [139] C$[178]"R"[167]9090 
9830 [137]6150 
9840 [153]"ENTER(R)=REPEAT,(M)=MENU OR (S)=SKIP"
9850 [133] C$
9860 [142]
9870 [139] A[170]B[178]0 [167]9980
9880 [139] A[170]C[178]0 [167]9980
9890 [139] B[170]C[178]0 [167]9980
9900 [139] A[172]B[172]C[177]0 [167]9980
9910 [139] B[178]0 [167]9960
9920 [139] C[178]0 [167]9970
9930 [139] A[178]0 [167]9950
9940 [137]9980
9950 A[178]B[173]C:[142]
9960 B[178]A[172]C:[142]
9970 C[178]B[173]A:[142]
9980 [153]:[153][163]8)"INPUT ERROR ! TRY AGAIN":[129] T[178]1 [164] 1000:[130] T
9990 ER[178]1:[142]
10000 A[178]A:B[178]2[172]A:C[178]3[172]A:D[178]4[172]A:E[178]5[172]A
10010 [153] [163]6)"SECONDS            %"Z1$
10020 [153] [163]5)"---------          ------------POKE"
10030 [153] [163]5);A;[163]25)"63.2"
10040 [153] [163]5);B;[163]25)"86.5"
10050 [153] [163]5);C;[163]25)"95.0"
10060 [153] [163]5);D;[163]25)"98.2"
10070 [153] [163]5);E;[163]25)"99.3"
10080 [153] [163]6)"SECONDS            %"Z2$
10090 [153] [163]5)"---------          ------------POKE"
10100 [153] [163]5);A;[163]25)"36.8"
10110 [153] [163]5);B;[163]25)"13.5"
10120 [153] [163]5);C;[163]25)" 5.0"
10130 [153] [163]5);D;[163]25)" 1.8"
10140 [153] [163]5);E;[163]25)" 0.7"
10150 [142]
10160 [139] C[177]A[170]B [167]9980
10170 [139] A[170]B[178]0 [167]9980
10180 [139] A[170]C[178]0 [167]9980
10190 [139] B[170]C[178]0 [167]9980
10200 [139] A[172]B[172]C[177]0 [167]9980 
10210 [139] B[178]0 [167]10240
10220 [139] C[178]0 [167]10250
10230 A[178](C[172]B)[173](B[171]C):[142]
10240 B[178](C[172]A)[173](A[171]C):[142]
10250 C[178](A[172]B)[173](A[170]B):[142]
10260 P[178](P[172]180)[173][255]:[142]
10270 A[178]0:B[178]0:C[178]0:D[178]0:E[178]0:F[178]0:G[178]0:H[178]0:I[178]0:J[178]0:K[178]0:L[178]0:M[178]0:N[178]0:O[178]0:P[178]0:Q[178]0:R[178]0
10280 S[178]0:T[178]0:U[178]0:V[178]0:W[178]0:X[178]0:Y[178]0:Z[178]0:PP[178]0:EQ[178]0:IP[178]0:OP[178]0:IE[178]0:OE[178]0:II[178]0:OI[178]0
10290 DB[178]0:IA[178]0:EP[178]0:EA[178]0:PH[178]0:LTH[178]0:L1[178]0:F1[178]0:CT[178]0
10300 S1$[178]"TAN(null)(null)(null)(null)(null)(null)WAITTAN":S2$[178]"TAN(null)(null)(null)(null)(null)(null)WAITTAN":S3$[178]"TANTANTAN<-TANTANTAN":T3$[178]"        "
10310 S5$[178]"OR":S6$[178]"^":S7$[178]"/":S8$[178]"EXP":S9$[178]"PEEK":T1$[178]"<":T2$[178]"-":S4$[178]"TANTANTANTANTANTANTANTAN"
10320 A(1,1)[178]0:A(1,2)[178]0:A(1,3)[178]0:A(1,4)[178]0:A(2,1)[178]0:A(2,2)[178]0:A(2,3)[178]0:A(2,4)[178]0
10330 A(3,1)[178]0:A(3,2)[178]0:A(3,3)[178]0:A(3,4)[178]0:A(4,1)[178]0:A(4,2)[178]0:A(4,3)[178]0:A(4,4)[178]0
10340 S(1)[178]0:S(2)[178]0:S(3)[178]0:S(4)[178]0:ER[178]0:[142]